home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / H166B.ZIP / L2.ZIP / P2-12DC.SEQ < prev    next >
Encoding:
Text File  |  1990-03-30  |  870 b   |  33 lines
  1. \ HEIGHT PROGRAM FOR P2-12
  2. \ Author: Dickson Cheng  03/30/90 17:09:25.47
  3.  
  4. : .FT           ( -- )
  5.         ." feet" ;
  6.  
  7. : .H0            ( n -- )
  8.         CR ." Initial height is " . .FT ;
  9.  
  10. : .V0            ( n -- )
  11.         CR ." Initial velocity is " . .FT ;
  12.  
  13. : .H            ( h0 v0 t -- )
  14.         CR ." Height after " DUP . ." seconds is "
  15.         -ROT 2 PICK *           ( h0 v0 t -- t h0 t*v0 )
  16.         -                       ( t h0 t*v0 -- t h0-t*v0 )
  17.         SWAP DUP 16 * *         ( t h0-t*v0 -- h0-t*v0 t*t*16 )
  18.         -                       ( h0-t*v0 t*t*16 -- h0-t*v0-t*t*16 )
  19.         .                       ( h0-t*v0-t*t*16 -- )
  20.         .FT ;
  21.  
  22. : HEIGHT        ( h0 v0 t -- )
  23.         2 PICK .H0
  24.         OVER   .V0
  25.                .H ;
  26.  
  27. : MESSAGE       ( -- )
  28.         DARK CR ." To run HEIGHT type h0 v0 t HEIGHT." ;
  29.  
  30. MESSAGE
  31.  
  32.  
  33.